
(point->list
 (point-inverse (Point -1 1/2 1/4) (Point 0 0 0))) 

;; => (1 -1/2 -1/4)

(map point->list
     (point-generate-line (Point 0 0 7)
			  (Point 5 0 2) 
			  1))	

;; => ((0 0 2) (1 0 6) (2 0 5) (3 0 4) (4 0 3) (5 0 2))

(map point->list
     (point-generate-line (Point 5 0 7/5)
			  (Point 0 10 2/5) 
			  1))	

;; => ((5 0 7/5) (4 2 6/5) (3 4 1) (2 6 4/5) (1 8 3/5) (0 10 2/5))

